DoCmd.SetWarnings False

Dim stDocName As String

stDocName = "LUSUARIOSADDRESS"

DoCmd.OpenQuery stDocName, acNormal, acEdit

Const E_ADS_PROPERTY_NOT_FOUND = &H8000500D

Const ADS_SCOPE_SUBTREE = 2

Dim MIBD As Database

Dim miRS1 As Recordset

Set MIBD = DBEngine.Workspaces(0).Databases(0)

Set miRS1 = MIBD.OpenRecordset("USUARIOSADDRESS", DB_OPEN_TABLE)

Set objOU = GetObject _ (LDAP://ou=Fabrica,ou=Spain,ou=botijos,dc=midominio,dc=com)

objOU.Filter = Array("user")

For Each objUser In objOU

If (objUser.Class) = "user" Then

miRS1.AddNew

miRS1![Nombre completo] = objUser.cn

miRS1![direccion] = objUser.streetAddress

miRS1![departamento] = objUser.Department

miRS1![compañia] = objUser.company

miRS1![Clase] = objUser.Class

miRS1![User] = objUser.userPrincipalName

If objUser.AccountDisabled = False Then

miRS1![cuenta] = "E"

Else

miRS1![cuenta] = "D"

End If

miRS1![cuentaex] = objUser.AccountExpirationDate

miRS1.Update

End If

dtmAccountExpiration = objUser.AccountExpirationDate

If Err.Number = -2147467259 Or dtmAccountExpiration = "01/01/1970" Then

'MsgBox "No account expiration date specified"

Else

'MsgBox "Account expiration date: " & objUser.AccountExpirationDate

End If

Next